Ucitati prirodan broj n i elemente niza x duzine n. Prikazati vrednost najmanjeg
elementa niza, kao i njegovu poziciju u nizu.

Sub zad5()
Dim x(100) As Double, n As Long, i As Long, xmin As Double, p As Long
Open "najmanji.txt" For Input As #1
Input #1, n
For i = 1 To n
Input #1, x(i)
Next
Close #1
xmin = x(1)
p = 1
For i = 1 To n
 If x(i) < xmin Then
 xmin = x(i)
 p = i
 End If
Next
MsgBox ("Najmanji je: " & xmin & " Na poziciji: " & p)
End Sub
